inherited frmCadParametros: TfrmCadParametros
  Left = 267
  Top = 176
  Width = 708
  Height = 418
  Caption = 'Par'#226'metros de Lan'#231'amento'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    Width = 700
    Height = 365
    ClientRectBottom = 365
    ClientRectRight = 700
    inherited tbsLista: TcxTabSheet
      inherited Panel1: TPanel
        Width = 700
        Height = 37
        object cxLabel1: TcxLabel
          Left = 8
          Top = 8
          Caption = 'Usu'#225'rio:'
          ParentFont = False
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clWindowText
          Style.Font.Height = -13
          Style.Font.Name = 'MS Sans Serif'
          Style.Font.Style = [fsBold, fsUnderline]
          Style.LookAndFeel.Kind = lfOffice11
          Style.IsFontAssigned = True
          StyleDisabled.LookAndFeel.Kind = lfOffice11
          StyleFocused.LookAndFeel.Kind = lfOffice11
          StyleHot.LookAndFeel.Kind = lfOffice11
          Properties.LabelEffect = cxleFun
          Properties.LabelStyle = cxlsOutLine
        end
        object lblUsuario: TcxLabel
          Left = 72
          Top = 9
          Caption = 'Usu'#225'rio'
          ParentFont = False
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clWindowText
          Style.Font.Height = -13
          Style.Font.Name = 'MS Sans Serif'
          Style.Font.Style = []
          Style.LookAndFeel.Kind = lfOffice11
          Style.IsFontAssigned = True
          StyleDisabled.LookAndFeel.Kind = lfOffice11
          StyleFocused.LookAndFeel.Kind = lfOffice11
          StyleHot.LookAndFeel.Kind = lfOffice11
          Properties.LabelEffect = cxleFun
          Properties.LabelStyle = cxlsOutLine
        end
      end
      inherited frmTreePadrao: TPanel
        Top = 37
        Width = 700
        Height = 328
        object cbOperacao: TcxDBLookupComboBox
          Left = 354
          Top = 53
          DataBinding.DataField = 'OPERACAO'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsOperacoes
          TabOrder = 0
          Width = 321
        end
        object cxLabel19: TcxLabel
          Left = 354
          Top = 36
          Caption = 'Opera'#231#227'o'
          Transparent = True
        end
        object cxLabel2: TcxLabel
          Left = 8
          Top = -2
          Caption = 'Produtor'
          Transparent = True
        end
        object cxDBDateEdit1: TcxDBDateEdit
          Left = 354
          Top = 92
          DataBinding.DataField = 'DATA_MOVTO'
          DataBinding.DataSource = dsRegistro
          TabOrder = 3
          Width = 88
        end
        object cxLabel17: TcxLabel
          Left = 354
          Top = 75
          Caption = 'Dt. Emiss'#227'o'
          Transparent = True
        end
        object cbProdutor: TcxDBLookupComboBox
          Left = 8
          Top = 14
          DataBinding.DataField = 'PRODUTOR'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          Properties.GridMode = True
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsProdutor
          Properties.Revertable = True
          TabOrder = 5
          Width = 320
        end
        object cbTerceiro: TcxDBLookupComboBox
          Left = 354
          Top = 14
          DataBinding.DataField = 'TERCEIRO'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsTerceiro
          TabOrder = 6
          Width = 320
        end
        object cxLabel5: TcxLabel
          Left = 354
          Top = -2
          Caption = 'Terceiro'
          Transparent = True
        end
        object cbPropriedade: TcxDBLookupComboBox
          Left = 8
          Top = 54
          DataBinding.DataField = 'PROPRIEDADE'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsPropriedade
          TabOrder = 8
          Width = 320
        end
        object cxLabel6: TcxLabel
          Left = 8
          Top = 36
          Caption = 'Propriedade'
          Transparent = True
        end
        object btnPropriedade: TcxButtonEdit
          Left = 327
          Top = 54
          TabStop = False
          Properties.Buttons = <
            item
              Caption = 'F9'
              Default = True
              Kind = bkText
            end>
          Properties.ViewStyle = vsButtonsOnly
          TabOrder = 10
          Text = 'btnLogradouro'
          OnClick = btnPropriedadeClick
          Width = 25
        end
        object btnProdutor: TcxButtonEdit
          Left = 327
          Top = 14
          TabStop = False
          Properties.Buttons = <
            item
              Caption = 'F9'
              Default = True
              Kind = bkText
            end>
          Properties.ViewStyle = vsButtonsOnly
          Properties.OnChange = btnProdutorPropertiesChange
          TabOrder = 11
          Text = 'btnProdutor'
          OnClick = btnProdutorClick
          Width = 25
        end
        object btnTerceiro: TcxButtonEdit
          Left = 671
          Top = 14
          TabStop = False
          Properties.Buttons = <
            item
              Caption = 'F9'
              Default = True
              Kind = bkText
            end>
          Properties.ViewStyle = vsButtonsOnly
          TabOrder = 12
          Text = 'btnLogradouro'
          OnClick = btnTerceiroClick
          Width = 25
        end
        object btnOperacao: TcxButtonEdit
          Left = 671
          Top = 53
          TabStop = False
          Properties.Buttons = <
            item
              Caption = 'F9'
              Default = True
              Kind = bkText
            end>
          Properties.ViewStyle = vsButtonsOnly
          TabOrder = 13
          Text = 'btnOperacao'
          OnClick = btnOperacaoClick
          Width = 25
        end
        object btnProduto: TcxButtonEdit
          Left = 328
          Top = 92
          TabStop = False
          Properties.Buttons = <
            item
              Caption = 'F9'
              Default = True
              Kind = bkText
            end>
          Properties.ViewStyle = vsButtonsOnly
          TabOrder = 14
          Text = 'btnProduto'
          OnClick = btnProdutoClick
          Width = 25
        end
        object cbProduto: TcxDBLookupComboBox
          Left = 10
          Top = 92
          DataBinding.DataField = 'PRODUTO'
          DataBinding.DataSource = dsRegistro
          Properties.CharCase = ecUpperCase
          Properties.KeyFieldNames = 'CODIGO'
          Properties.ListColumns = <
            item
              FieldName = 'NOME'
            end>
          Properties.ListSource = dsProdutos
          TabOrder = 15
          Width = 319
        end
        object cxLabel9: TcxLabel
          Left = 8
          Top = 76
          Caption = 'Produto'
          Transparent = True
        end
        object cxDBSpinEdit1: TcxDBSpinEdit
          Left = 450
          Top = 91
          DataBinding.DataField = 'ANO_BASE'
          DataBinding.DataSource = dsRegistro
          Properties.MinValue = 2000.000000000000000000
          TabOrder = 17
          Width = 79
        end
        object cxLabel3: TcxLabel
          Left = 450
          Top = 75
          Caption = 'Ano Base'
          Transparent = True
        end
        object cxGroupBox1: TcxGroupBox
          Left = 8
          Top = 120
          Caption = 'Agr'#237'cola'
          TabOrder = 19
          Height = 113
          Width = 332
          object cxDBCheckBox2: TcxDBCheckBox
            Left = 8
            Top = 24
            Hint = 
              'Se faturamentos vinculados a opera'#231#227'o ir'#227'o movimentar estoque ou' +
              ' n'#227'o.'
            Caption = 'Somente da DAC (Lancto NF)'
            DataBinding.DataField = 'AGR_LST_PRD_DAC'
            DataBinding.DataSource = dsRegistro
            ParentShowHint = False
            Properties.ValueChecked = 'S'
            Properties.ValueUnchecked = 'N'
            ShowHint = True
            TabOrder = 0
            Transparent = True
            Width = 177
          end
          object cxDBCheckBox1: TcxDBCheckBox
            Left = 8
            Top = 48
            Hint = 
              'Se faturamentos vinculados a opera'#231#227'o ir'#227'o movimentar estoque ou' +
              ' n'#227'o.'
            Caption = 'Exibe Cota'#231#227'o Bovespa'
            DataBinding.DataField = 'EXIBE_COTACAO_BOVESPA'
            DataBinding.DataSource = dsRegistro
            ParentShowHint = False
            Properties.ValueChecked = 'S'
            Properties.ValueUnchecked = 'N'
            ShowHint = True
            TabOrder = 1
            Transparent = True
            Width = 177
          end
          object cxDBCheckBox3: TcxDBCheckBox
            Left = 8
            Top = 72
            Hint = 
              'Se faturamentos vinculados a opera'#231#227'o ir'#227'o movimentar estoque ou' +
              ' n'#227'o.'
            Caption = 'Exibe Cota'#231#227'o Agr'#237'cola'
            DataBinding.DataField = 'EXIBE_COTACAO_AGRICOLA'
            DataBinding.DataSource = dsRegistro
            ParentShowHint = False
            Properties.ValueChecked = 'S'
            Properties.ValueUnchecked = 'N'
            ShowHint = True
            TabOrder = 2
            Transparent = True
            Width = 177
          end
        end
      end
    end
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
    DesignInfo = 21496096
  end
  inherited GridPopupMenu: TcxGridPopupMenu
    Left = 320
    Top = 328
  end
  inherited cxPropertiesStore: TcxPropertiesStore
    Left = 224
    Top = 328
  end
  inherited ActionList1: TActionList
    Left = 256
    Top = 328
    inherited ActDelete: TAction
      OnExecute = ActDeleteExecute
    end
    inherited ActEdit: TAction
      OnExecute = ActEditExecute
    end
    inherited ActSave: TAction
      OnExecute = ActSaveExecute
    end
    inherited ActCancel: TAction
      OnExecute = ActCancelExecute
    end
    inherited ActCadLookup: TAction
      OnExecute = ActCadLookupExecute
    end
  end
  inherited dtEdit: TIBDataSet
    BeforeOpen = dtEditBeforeOpen
    BeforePost = dtEditBeforePost
    DeleteSQL.Strings = (
      'delete from parametros'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into parametros'
      
        '  (AGR_LST_PRD_DAC, ANO_BASE, CODIGO, DATA_MOVTO, EXIBE_COTACAO_' +
        'AGRICOLA, '
      
        '   EXIBE_COTACAO_BOVESPA, OPERACAO, PRODUTO, PRODUTOR, PROPRIEDA' +
        'DE, TERCEIRO, '
      '   USUARIO)'
      'values'
      
        '  (:AGR_LST_PRD_DAC, :ANO_BASE, :CODIGO, :DATA_MOVTO, :EXIBE_COT' +
        'ACAO_AGRICOLA, '
      
        '   :EXIBE_COTACAO_BOVESPA, :OPERACAO, :PRODUTO, :PRODUTOR, :PROP' +
        'RIEDADE, '
      '   :TERCEIRO, :USUARIO)')
    RefreshSQL.Strings = (
      'Select * '
      'from parametros '
      'where'
      '  CODIGO = :CODIGO')
    SelectSQL.Strings = (
      'select * from parametros p'
      'where p.usuario = :usuario')
    ModifySQL.Strings = (
      'update parametros'
      'set'
      '  AGR_LST_PRD_DAC = :AGR_LST_PRD_DAC,'
      '  ANO_BASE = :ANO_BASE,'
      '  CODIGO = :CODIGO,'
      '  DATA_MOVTO = :DATA_MOVTO,'
      '  EXIBE_COTACAO_AGRICOLA = :EXIBE_COTACAO_AGRICOLA,'
      '  EXIBE_COTACAO_BOVESPA = :EXIBE_COTACAO_BOVESPA,'
      '  OPERACAO = :OPERACAO,'
      '  PRODUTO = :PRODUTO,'
      '  PRODUTOR = :PRODUTOR,'
      '  PROPRIEDADE = :PROPRIEDADE,'
      '  TERCEIRO = :TERCEIRO,'
      '  USUARIO = :USUARIO'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_PARAMETROS_ID'
    GeneratorField.ApplyEvent = gamOnPost
    object dtEditCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PARAMETROS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtEditUSUARIO: TIntegerField
      FieldName = 'USUARIO'
      Origin = '"PARAMETROS"."USUARIO"'
    end
    object dtEditDATA_MOVTO: TDateField
      FieldName = 'DATA_MOVTO'
      Origin = '"PARAMETROS"."DATA_MOVTO"'
    end
    object dtEditOPERACAO: TIntegerField
      FieldName = 'OPERACAO'
      Origin = '"PARAMETROS"."OPERACAO"'
    end
    object dtEditPRODUTOR: TIntegerField
      FieldName = 'PRODUTOR'
      Origin = '"PARAMETROS"."PRODUTOR"'
    end
    object dtEditTERCEIRO: TIntegerField
      FieldName = 'TERCEIRO'
      Origin = '"PARAMETROS"."TERCEIRO"'
    end
    object dtEditPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
      Origin = '"PARAMETROS"."PROPRIEDADE"'
    end
    object dtEditPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"PARAMETROS"."PRODUTO"'
    end
    object dtEditANO_BASE: TIntegerField
      DisplayLabel = 'Ano Base'
      FieldName = 'ANO_BASE'
      Origin = '"PARAMETROS"."ANO_BASE"'
    end
    object dtEditAGR_LST_PRD_DAC: TIBStringField
      FieldName = 'AGR_LST_PRD_DAC'
      Origin = '"PARAMETROS"."AGR_LST_PRD_DAC"'
      FixedChar = True
      Size = 1
    end
    object dtEditEXIBE_COTACAO_BOVESPA: TIBStringField
      FieldName = 'EXIBE_COTACAO_BOVESPA'
      Origin = '"PARAMETROS"."EXIBE_COTACAO_BOVESPA"'
      FixedChar = True
      Size = 1
    end
    object dtEditEXIBE_COTACAO_AGRICOLA: TIBStringField
      FieldName = 'EXIBE_COTACAO_AGRICOLA'
      Origin = '"PARAMETROS"."EXIBE_COTACAO_AGRICOLA"'
      FixedChar = True
      Size = 1
    end
  end
  inherited dxBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    Left = 536
    Top = 292
    DockControlHeights = (
      0
      0
      0
      26)
    inherited dxBarManager1Bar1: TdxBar
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarDBNavEdit1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavPost1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavCancel1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavDelete1'
        end>
    end
    inherited dxBarDBNavFirst1: TdxBarDBNavButton
      Visible = ivNever
    end
    inherited dxBarDBNavPrior1: TdxBarDBNavButton
      Visible = ivNever
    end
    inherited dxBarDBNavNext1: TdxBarDBNavButton
      Visible = ivNever
    end
    inherited dxBarDBNavLast1: TdxBarDBNavButton
      Visible = ivNever
    end
    inherited dxBarDBNavInsert1: TdxBarDBNavButton
      Visible = ivNever
    end
  end
  inherited dxBarDBNavigator1: TdxBarDBNavigator
    DataSource = dsRegistro
    Left = 512
    Top = 292
  end
  object dsOperacoes: TDataSource
    DataSet = lstOperacoes
    Left = 600
    Top = 248
  end
  object lstOperacoes: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from operacoes')
    Left = 600
    Top = 216
    object lstOperacoesCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"OPERACOES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstOperacoesNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"OPERACOES"."NOME"'
      Size = 50
    end
    object lstOperacoesCONTA: TIntegerField
      FieldName = 'CONTA'
      Origin = '"OPERACOES"."CONTA"'
    end
    object lstOperacoesTIPO: TIBStringField
      FieldName = 'TIPO'
      Origin = '"OPERACOES"."TIPO"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesTIPO_MOVTO: TIBStringField
      FieldName = 'TIPO_MOVTO'
      Origin = '"OPERACOES"."TIPO_MOVTO"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesTIPO_FISCAL: TIBStringField
      FieldName = 'TIPO_FISCAL'
      Origin = '"OPERACOES"."TIPO_FISCAL"'
      FixedChar = True
      Size = 1
    end
  end
  object dsPropriedade: TDataSource
    DataSet = lstPropriedade
    Left = 568
    Top = 248
  end
  object lstPropriedade: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    DataSource = dsLinkPropriedade
    SQL.Strings = (
      
        'select pp.codigo, coalesce(pp.insc_estadual,'#39#39')||'#39' ( '#39'||coalesce' +
        '(pp.nome,'#39#39')||'#39' )'#39' nome from propriedade pp'
      'where pp.produtor = :codigo'
      '')
    Left = 568
    Top = 216
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object lstPropriedadeCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PROPRIEDADE"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstPropriedadeNOME: TIBStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 75
    end
  end
  object lstTerceiro: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select p.codigo, p.nome from produtores p'
      'where p.armazem = '#39'S'#39' and p.ativo = '#39'S'#39)
    Left = 536
    Top = 216
    object lstTerceiroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstTerceiroNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object dsTerceiro: TDataSource
    DataSet = lstTerceiro
    Left = 536
    Top = 248
  end
  object dsProdutor: TDataSource
    DataSet = lstProdutores
    Left = 504
    Top = 248
  end
  object lstProdutores: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select p.codigo, p.nome from produtores p'
      'where p.produtor = '#39'S'#39' and p.ativo = '#39'S'#39)
    Left = 504
    Top = 216
    object lstProdutoresCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstProdutoresNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object lstProdutos: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from produtos')
    Left = 472
    Top = 216
    object IntegerField1: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBStringField1: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object dsProdutos: TDataSource
    DataSet = lstProdutos
    Left = 472
    Top = 248
  end
  object dsLinkPropriedade: TDataSource
    DataSet = lstProdutores
    Left = 552
    Top = 184
  end
end
